home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / ACTION.ZIP / ANIMATE1.FRM < prev    next >
Text File  |  1997-09-14  |  6KB  |  213 lines

  1. VERSION 2.00
  2. Begin Form Animate1 
  3.    Caption         =   "Animate1"
  4.    Height          =   3375
  5.    Icon            =   ANIMATE1.FRX:0000
  6.    Left            =   1920
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   2685
  9.    ScaleWidth      =   5430
  10.    Top             =   1515
  11.    Width           =   5550
  12.    Begin AniPushButton AniButton2 
  13.       Caption         =   "Copier"
  14.       ClearFirst      =   -1  'True
  15.       ClickFilter     =   1  'Text or Picture
  16.       Height          =   915
  17.       Left            =   4200
  18.       PictDrawMode    =   1  'Autosize control
  19.       Picture         =   ANIMATE1.FRX:0302
  20.       TabIndex        =   10
  21.       TextPosition    =   4  'Below
  22.       Top             =   240
  23.       Width           =   720
  24.    End
  25.    Begin CommandButton cmdMouseClick 
  26.       Caption         =   "&MouseClick"
  27.       Height          =   495
  28.       Left            =   2040
  29.       TabIndex        =   6
  30.       Top             =   1920
  31.       Width           =   1215
  32.    End
  33.    Begin CommandButton cmdExit 
  34.       Caption         =   "&Exit"
  35.       Height          =   375
  36.       Left            =   4200
  37.       TabIndex        =   2
  38.       Top             =   2160
  39.       Width           =   975
  40.    End
  41.    Begin Frame fraCycle 
  42.       Caption         =   "Cycle"
  43.       Height          =   1455
  44.       Left            =   1560
  45.       TabIndex        =   1
  46.       Top             =   240
  47.       Width           =   2055
  48.       Begin OptionButton optAniCycle 
  49.          Caption         =   "2-State Animated"
  50.          Height          =   255
  51.          Index           =   2
  52.          Left            =   120
  53.          TabIndex        =   5
  54.          Top             =   1080
  55.          Width           =   1815
  56.       End
  57.       Begin OptionButton optAniCycle 
  58.          Caption         =   "Multi-State"
  59.          Height          =   255
  60.          Index           =   1
  61.          Left            =   120
  62.          TabIndex        =   4
  63.          Top             =   720
  64.          Width           =   1575
  65.       End
  66.       Begin OptionButton optAniCycle 
  67.          Caption         =   "Animated"
  68.          Height          =   255
  69.          Index           =   0
  70.          Left            =   120
  71.          TabIndex        =   3
  72.          Top             =   360
  73.          Width           =   1575
  74.       End
  75.    End
  76.    Begin AniPushButton AniButton1 
  77.       Caption         =   "Moon"
  78.       Cycle           =   1  'By frame
  79.       Height          =   675
  80.       Left            =   600
  81.       PictDrawMode    =   1  'Autosize control
  82.       Picture         =   ANIMATE1.FRX:3942
  83.       TabIndex        =   0
  84.       TextPosition    =   4  'Below
  85.       Top             =   480
  86.       Width           =   510
  87.    End
  88.    Begin Label lblCopierFrameNumber 
  89.       Alignment       =   2  'Center
  90.       BorderStyle     =   1  'Fixed Single
  91.       Height          =   255
  92.       Left            =   4680
  93.       TabIndex        =   12
  94.       Top             =   1680
  95.       Width           =   270
  96.    End
  97.    Begin Label lblCopierText 
  98.       AutoSize        =   -1  'True
  99.       Caption         =   "Copier Frame Number"
  100.       Height          =   495
  101.       Left            =   3720
  102.       TabIndex        =   11
  103.       Top             =   1440
  104.       Width           =   1455
  105.       WordWrap        =   -1  'True
  106.    End
  107.    Begin Label lblMoonPictureNumber 
  108.       Alignment       =   2  'Center
  109.       BorderStyle     =   1  'Fixed Single
  110.       Height          =   255
  111.       Left            =   1080
  112.       TabIndex        =   9
  113.       Top             =   1560
  114.       Width           =   255
  115.    End
  116.    Begin Label Label2 
  117.       AutoSize        =   -1  'True
  118.       Caption         =   "Moon Frame Number"
  119.       Height          =   510
  120.       Left            =   240
  121.       TabIndex        =   8
  122.       Top             =   1320
  123.       Width           =   1110
  124.       WordWrap        =   -1  'True
  125.    End
  126.    Begin Label Label1 
  127.       Caption         =   "Click on Moon or Copier or &MouseClick to RUN both...."
  128.       Height          =   255
  129.       Left            =   120
  130.       TabIndex        =   7
  131.       Top             =   0
  132.       Width           =   4815
  133.    End
  134.    Begin Menu menuHelp 
  135.       Caption         =   "&Help"
  136.    End
  137. End
  138. Option Explicit
  139.  
  140. Sub AniButton1_Click ()
  141.     'Animate1.AniButton1.Frame = Animate1.AniButton1.Picture
  142.     lblMoonPictureNumber = Animate1.AniButton1.Value
  143.     lblCopierFrameNumber = Animate1.AniButton2.Value
  144. End Sub
  145.  
  146. Sub AniButton1_GotFocus ()
  147.     lblMoonPictureNumber = Animate1.AniButton1.Value
  148.     lblCopierFrameNumber = Animate1.AniButton2.Value
  149.  
  150. End Sub
  151.  
  152. Sub AniButton2_Click ()
  153.         lblCopierFrameNumber = Animate1.AniButton2.Value
  154. End Sub
  155.  
  156. Sub AniButton2_GotFocus ()
  157.     lblCopierFrameNumber = Animate1.AniButton2.Value
  158. End Sub
  159.  
  160. Sub cmdExit_Click ()
  161.  
  162.     'exit program
  163.     End
  164.  
  165. End Sub
  166.  
  167. Sub cmdMouseClick_Click ()
  168.     'Stop
  169.     'need the command that activates the animation as
  170.     'AniButton1_Click doesn't do it
  171.     Animate1.AniButton1.SpecialOp = 1
  172.     Animate1.AniButton2.SpecialOp = 1
  173.     'need the frame that is being displayed
  174.     lblMoonPictureNumber = Animate1.AniButton1.Value
  175.     lblCopierFrameNumber = Animate1.AniButton2.Value
  176. End Sub
  177.  
  178. Sub Form_Load ()
  179.     Left = (screen.Width - Width) \ 2
  180.     Top = (screen.Height - Height) \ 3
  181.     ' make option buttons reflect
  182.     ' animated button cycle
  183.     optAniCycle(AniButton1.Cycle) = 1
  184.     'optAniCycle(AniButton2.Cycle) = 1
  185.  
  186. End Sub
  187.  
  188. Sub fraCycle_DragDrop (Source As Control, X As Single, Y As Single)
  189. 'Stop
  190. End Sub
  191.  
  192. Sub menuHelp_Click ()
  193.     Dim LF$, Msg$
  194.     LF$ = Chr$(13) + Chr$(10)
  195.  
  196.     Msg$ = Msg$ + "Click on -Either- Graphic or ""MouseChange"" to RUN the Program." + LF$ + LF$
  197.     Msg$ = Msg$ + "Change the Option Box settings to test each state. The ""Animated"" Check Box may give incorrect Frame numbers... but NOT all the time...." + LF$ + LF$
  198.     Msg$ = Msg$ + "John De Palma on CompuServe 76076,571"
  199.     MsgBox Msg$, 64, "Brief Animation Help"
  200.  
  201.  
  202. End Sub
  203.  
  204. Sub optAniCycle_Click (Index As Integer)
  205.  
  206.     ' change animated button's cycle
  207.     '   to reflect selected push button
  208.     AniButton1.Cycle = Index
  209.     AniButton2.Cycle = Index
  210.  
  211. End Sub
  212.  
  213.